home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Developer Essentials / MPW Interfaces & Libraries / PInterfaces / IntEnv.p < prev    next >
Encoding:
Text File  |  1992-01-29  |  2.4 KB  |  118 lines  |  [TEXT/MPS ]
  1. {
  2. Created: Wednesday, June 27, 1990 at 6:42 PM
  3.     IntEnv.p
  4.     Pascal Interface to the Macintosh Libraries
  5.  
  6.         Copyright Apple Computer, Inc. 1989-1991
  7.         All rights reserved
  8. }
  9.  
  10.  
  11. {$IFC UNDEFINED UsingIncludes}
  12. {$SETC UsingIncludes := 0}
  13. {$ENDC}
  14.  
  15. {$IFC NOT UsingIncludes}
  16.     UNIT IntEnv;
  17.     INTERFACE
  18. {$ENDC}
  19.  
  20. {$IFC UNDEFINED UsingIntEnv}
  21. {$SETC UsingIntEnv := 1}
  22.  
  23. {$I+}
  24. {$SETC IntEnvIncludes := UsingIncludes}
  25. {$SETC UsingIncludes := 1}
  26. {$IFC UNDEFINED UsingPasLibIntf}
  27. {$I $$Shell(PInterfaces)PasLibIntf.p}
  28. {$ENDC}
  29. {$SETC UsingIncludes := IntEnvIncludes}
  30.  
  31.     CONST
  32.  
  33.       { CMD words for IEfaccess(), from <fcntl.h> }
  34.  
  35.       F_OPEN = $6400; { (('d'<<8)|00), d => "directory" ops }
  36.       F_DELETE = $6401;
  37.       F_RENAME = $6402;
  38.  
  39.       F_GTABINFO = $6500; { (('e'<<8)|00), e => "editor" ops }
  40.       F_STABINFO = $6501;
  41.       F_GFONTINFO = $6502;
  42.       F_SFONTINFO = $6503;
  43.       F_GPRINTREC = $6504;
  44.       F_SPRINTREC = $6505;
  45.       F_GSELINFO = $6506;
  46.       F_SSELINFO = $6507;
  47.       F_GWININFO = $6508;
  48.       F_SWININFO = $6509;
  49.       F_GSCROLLINFO = $6510;
  50.       F_SSCROLLINFO = $6511;
  51.  
  52.       { Open modes for IEopen(), from <fcntl.h> }
  53.  
  54.       O_RDONLY = $0000;
  55.       O_WRONLY = $0001;
  56.       O_RDWR = $0002;
  57.       O_APPEND = $0008;
  58.       O_RSRC = $0010;
  59.       O_CREAT = $0100;
  60.       O_TRUNC = $0200;
  61.       O_EXCL = $0400;
  62.  
  63.       { IOCtl parameters }
  64.  
  65.       FIOINTERACTIVE = $6602; { (('f'<<8)|02), f => "open file" ops }
  66.       FIOBUFSIZE = $6603;
  67.       FIOFNAME = $6604;
  68.       FIOREFNUM = $6605;
  69.       FIOSETEOF = $6606;
  70.  
  71.     TYPE
  72.       IEString = STRING;
  73.       IEStringPtr = ^IEString;
  74.       IEStringVec = ARRAY [0..8191] OF IEStringPtr;
  75.       IEStringVecPtr = ^IEStringVec;
  76.  
  77.       {$PUSH}
  78.       {$J+} { EXPORTed unit globals }
  79.  
  80.     VAR
  81.       ArgC: LONGINT;
  82.       ArgV: IEStringVecPtr;
  83.       _EnvP: IEStringVecPtr;
  84.  
  85.       Diagnostic: TEXT;
  86.       {$POP}
  87.  
  88.     FUNCTION IEStandAlone: BOOLEAN;
  89.  
  90.     FUNCTION IEgetenv(envName: STRING; VAR envValue: UNIV IEString): BOOLEAN;
  91.  
  92.     FUNCTION IEfaccess(fName: STRING; opCode: LONGINT;
  93.                        arg: UNIV LONGINT): LONGINT;
  94.  
  95.     PROCEDURE IEopen(VAR fvar: UNIV PASCALFILE; fName: STRING; mode: LONGINT);
  96.  
  97.     FUNCTION IEioctl(VAR fvar: UNIV PASCALFILE; request: LONGINT;
  98.                      arg: UNIV LONGINT): LONGINT;
  99.  
  100.     FUNCTION IElseek(VAR fvar: UNIV PASCALFILE; offset: LONGINT;
  101.                      whence: LONGINT): LONGINT;
  102.  
  103.     PROCEDURE IEatexit(exitProc: UNIV LONGINT);
  104.       C;
  105.  
  106.     PROCEDURE IEexit(status: LONGINT);
  107.       C;
  108.  
  109.     PROCEDURE IE_exit(status: LONGINT);
  110.       C;
  111.  
  112. {$ENDC}    { UsingIntEnv }
  113.  
  114. {$IFC NOT UsingIncludes}
  115.     END.
  116. {$ENDC}
  117.  
  118.